home *** CD-ROM | disk | FTP | other *** search
/ Solaris Press Kit / Solaris Press Kit.iso / mac / Media / Solaris.dxr / Internal_13_hilite script.ls < prev    next >
Encoding:
Text File  |  2002-10-23  |  433 b   |  26 lines
  1. property pHilite
  2.  
  3. on mouseWithin me
  4.   setCursorHand()
  5.   sprite(pHilite).visible = 1
  6. end
  7.  
  8. on mouseLeave me
  9.   setCursorStop()
  10.   sprite(pHilite).visible = 0
  11. end
  12.  
  13. on beginSprite me
  14.   sprite(pHilite).visible = 0
  15. end
  16.  
  17. on endSprite me
  18.   sprite(pHilite).visible = 1
  19. end
  20.  
  21. on getPropertyDescriptionList
  22.   description = [:]
  23.   addProp(description, #pHilite, [#default: 1, #comment: "Hilite Channel", #format: #integer])
  24.   return description
  25. end
  26.